home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 2.toast / pc / tool chest / development kits / mpw related / dts mpw goodies / lookupmenu < prev    next >
Encoding:
Text File  |  1990-09-14  |  1.0 KB  |  29 lines
  1. #
  2. # The Lookup Menu
  3. #
  4.  
  5. AddMenu Lookup 'Lookup/L' 'Lookup "{Lookup}" ∑ Dev:Null &&∂
  6.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  7.     Set Lookup "{®1}"'
  8. AddMenu Lookup 'Lookup RW/¬' 'Lookup -w "{Lookup}" ∑ Dev:Null &&∂
  9.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  10.     Set Lookup "{®1}"'
  11. AddMenu Lookup (- ' '
  12. For Lookup in '{MAPInterfaces}' '{MACIncludes}' '{MALibraries}' '{MARIncludes}' '{MAExamples}'
  13.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null &&∂
  14.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  15.     Set Lookup "{®1}"'
  16. End
  17. AddMenu Lookup (- ' '
  18. For Lookup in '{CIncludes}' '{PInterfaces}' '{AIncludes}' '{RIncludes}'
  19.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null &&∂
  20.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  21.     Set Lookup "{®1}"'
  22. End
  23. AddMenu Lookup (- ' '
  24. For Lookup in '{MPW}Scripts:' '{MPW}'
  25.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null && ∂
  26.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑ Dev:Null && ∂
  27.     Set Lookup "{®1}"'
  28. End
  29.